Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/DB_CLIPP/2611.ZIP/MANIFEST.ZIP/MANPRN.PRG

Text File | 1988-04-14 | 15KB | 550 lines

***********************
*  MANPRIN.PRG        *
*  PRINT CHOICE MENU  *
*  CHOICE 4           *
*  APR 14, 1988       *
*  GUY DUBEC          *
***********************
CLEA
STOR SPACE(1) TO CHOICE, CHOICE1
STOR 'F' TO END
STOR SPACE(6) TO START, STOP, CODEA
STOR SPACE(15) TO MANNOA
STOR SPACE(12) TO EPAIDA, EPAIDB, EPAIDC
STOR SPACE(4) TO CODEB
@ 1,23 TO 5,55 DOUBLE
@ 2,24 TO 4,54 DOUBLE
@ 3,26 SAY 'Manifest Information System'
@ 7,25 TO 9,55
@ 8,27 SAY 'Print Standard Report Menu'
DO WHIL CHOICE1<>'X'
  DO WHIL END='F'
    @ 11,12 TO 24,68
    @ 12,14 SAY '1 - Print a Single Manifest'
    @ 13,14 SAY '2 - List Manifests for a Specific Waste Code'
    @ 14,14 SAY '3 - List Manifests from a Single Generator'
    @ 15,14 SAY '4 - List Manifests by a Single Transporter'
    @ 16,14 SAY '5 - List Manifests to a Single TSD Facility'
    @ 17,14 SAY '6 - List Manifests by a Transporter/TSD ì
Combination'
    @ 18,14 SAY '7 - List Manifests by a Single Waste Handling ì
Code'
    @ 19,14 SAY '8 - Summary Report Menu'
    @ 20,14 SAY 'R - Return to Main Menu'
    @ 23,14 SAY 'Enter your choice : ' GET CHOICE
    READ
    IF UPPER(CHOICE)='R'
      RETURN
    ELSE
      @ 11,0 CLEA
      @ 11,10 TO 16,70
      @ 12,12 SAY 'Inclusive dates for the report to cover must ì
now be'
      @ 13,12 SAY 'entered.  If your previous choice was Print a ì
Single'
      @ 14,12 SAY 'Manifest, press <ENTER> for both dates below, ì
otherwise'
      @ 15,12 SAY 'enter the dates.'
      @ 18,10 SAY 'Report starting date (YYMMDD) : ' GET START
      @ 20,10 SAY 'Report stopping date (YYMMDD) : ' GET STOP
      READ
      @ 7,0 CLEA
      IF CHOICE='1'
        @ 8,0 SAY 'You have chosen to print all available ì
information about a single manifest.'
      ENDIF
      IF CHOICE='2'
        @ 8,0 SAY 'You have chosen to list all manifests which ì
contain a specific waste code'
        @ 9,0 SAY 'and which are dated beginning on '+START+' and ì
ending on '+STOP
      ENDIF
      IF CHOICE='3'
        @ 8,0 SAY 'You have chosen to list all manifests which ì
were issued by a specific'
        @ 9,0 SAY 'generator EPA ID, and which are dated ì
beginning on '+START+' and'
        @ 10,0 SAY 'ending on '+STOP
      ENDIF
      IF CHOICE='4'
        @ 8,0 SAY 'You have chosen to list all manifests which ì
were transported by a specific'
        @ 9,0 SAY 'transporter EPA ID, and which are dated ì
beginning on '+START+' and'
        @ 10,0 SAY 'ending on '+STOP
      ENDIF
      IF CHOICE='5'
        @ 8,0 SAY 'You have chosen to list all manifests which ì
were sent to a specific TSD'
        @ 9,0 SAY 'facility EPA ID, and whcih are dated beginning ì
on '+START+' and'
        @ 10,0 SAY 'ending on '+STOP
      ENDIF
      IF CHOICE='6'
        @ 8,0 SAY 'You have chosen to list all manifests which ì
were transported by a specific'
        @ 9,0 SAY 'transporter EPA ID to a specific TSD EPA ID, ì
and which are dated beginning on'
        @ 10,0 SAY START+' and ending on '+STOP
      ENDIF
      IF CHOICE='7'
        @ 8,0 SAY 'You have chosen to list all manifests which ì
contain a specific waste handling'
        @ 9,0 SAY 'code, and which are dated beginning on ì
'+START+' and ending on '+STOP
      ENDIF
      IF CHOICE='8'
        DO SUMPRN
      ENDIF
      @ 15,0 SAY 'Enter <C> to continue and print report, <X> to ì
return to menu without printing'
      @ 16,0 SAY 'report.  Enter choice : ' GET CHOICE1
      READ
      IF UPPER(CHOICE1)='X'
        STOR ' ' TO CHOICE
        @ 15,0 CLEA
        EXIT
      ENDIF
    ENDDO WHILE CHOICE1<>'X'
    IF UPPER(CHOICE1)='C'
      DO CASE
        CASE CHOICE='1'
SELECT 1
  USE MANIFEST INDEX MANIFEST
SELECT 2
  USE FACILITY INDEX FACID
SELECT 3
  USE WASTE INDEX MANWST
SELECT 4
  USE TRANS INDEX TID
SELECT 5
  USE DISP INDEX DID
SELECT 1
@ 7,0 CLEA
@ 10,10 SAY 'Enter manifest number to be printed : ' GET MANNOA
READ
DO WHIL END='F'
  FIND &MANNOA
  STOR GENID TO EPAIDA
  STOR TRANID TO EPAIDB
  STOR TSDID TO EPAIDC
  @ 0,0
  STOR 5 TO LINE
  SET DEVI TO PRIN
  @ LINE,5 SAY 'Manifest Number : '+MANNOA+'   Ship Date : '+SHIP+' ì
  Receipt Date : '+REC
  STOR LINE+2 TO LINE
  SELECT 2
  FIND &EPAIDA
  @ LINE,5 SAY 'Generator EPA ID & Name : '+EPAID+'   ì
'+TRIM(NAME)
  STOR LINE+1 TO LINE
  @ LINE,5 SAY 'Generator Address       : '+TRIM(ADD1)+', ì
'+TRIM(ADD2)
  STOR LINE+1 TO LINE
  @ LINE,32 SAY TRIM(CITY)+', '+STATE+'  ì
'+ZIP+SPACE(5)+'('+SUBSTR(PHONE,1,3)+')'+SUBSTR(PHONE,4,3)+'-'+SUBì
STR(PHONE,7)
  STOR LINE+2 TO LINE
  SELECT 4
  FIND &EPAIDB
  @ LINE,5 SAY 'Transporter EPA ID & Name : '+EPAID+'  ì
'+TRIM(NAME0
  STOR LINE+1 TO LINE
  @ LINE,5 SAY 'Transporter Address       : '+TRIM(ADD1)+', ì
'+TRIM(ADD2)
  STOR LINE+1 TO LINE
  @ LINE,33 SAY TRIM(CITY)+', '+STATE+'  ì
'+ZIP+SPACE(5)+'('+SUBSTR(PHONE,1,3)+')'+SUBSTR(PHONE,4,3)+'-'+SUBì
STR(PHONE,7)
  STOR LINE+2 TO LINE
  SELECT 5
  FIND &EPAIDC
  @ LINE,5 SAY 'Disposer EPA ID & Name : '+EPAID+'  +TRIM(NAME)
  STOR LINE+1 TO LINE
  @ LINE,5 SAY 'Disposer Address       : '+TRIM(ADD1)+', ì
'+TRIM(ADD2)
  STOR LINE+1 TO LINE
  @ LINE,30 SAY TRIM(CITY)+', '+STATE+'  ì
'+ZIP+SPACE(5)+'('+SUBSTR(PHONE,1,3)+')'+SUBSTR(PHONE,4,3)+'-'+SUBì
STR(PHONE,7)
  SELECT 3
  FIND &MANNOA
  DO WHIL MANNO=MANNOA
    STOR LINE+2 TO LINE
    @ LINE,5 SAY 'Waste Description : '+TRIM(DESC)
    STOR LINE+1 TO LINE
    @ LINE 5 SAY 'Quantity :'+QUANT+'  Unit : '+UNIT+'  Container ì
Type : '+CONTYP+'  No. Containers : '+CONTNO
    STOR LINE+1 TO LINE
    @ LINE,5 SAY 'EPA Code : '+EPACODE+'  State Code : '+STCODE+' ì
 Hazard Code : '+HAZCOD+'  Physical State : '+PHYST
    STOR LINE+1 TO LINE
    @ LINE,5 SAY 'Handling Codes : '+HAND1+', '+HAND2+', ì
'+HAND3+', '+HAND4
    SKIP
  ENDDO
  @ LINE+1,0 SAY ' '
  EJECT
  SET DEVI TO SCRE
  @ 23,0 CLEA
  WAIT 'Press any key to return to print menu . . . '
  CLOS DATA
        CASE CHOICE='2'
@ 7,0 CLEA
STOR 'F' TO END
STOR 2 TO LINE
STOR 60 TO MAX
STOR 000000 TO TON, TOTON
STOR SPACE(6) TO CODEA
STOR SPACE(4) TO CODEB
@ 9,20 SAY 'Enter either the EPA or State Waste Code'
@ 10,21 SAY 'for which the report is to be printed.'
@ 12,14 SAY 'EPA Waste Code : ' GET CODEB
@ 12,40 SAY 'State Waste Code : ' GET CODEA
@ 14,18 SAY 'Report start date : '+START+' and end date : '+STOP
READ
DO WHIL END='F'
  IF CODEB<>' '
    USE WASTE
    INDEX ON EPACODE TO EPAWST
    FIND &CODEB
    DO WHIL SHIP=>START .AND. SHIP<=STOP .AND. EPACODE=CODEB
      @ 0,0
      SET DEVI TO PRIN
      IF LINE=2
        @ LINE,20 SAY 'Manifest listing for EPA Waste Code : ì
'+CODEB
        STOR LINE+2 TO LINE
        @ LINE,13 SAY 'Manifest No.   Ship Date   Quantity   ì
Units   Tons'
        STOR LINE+1 TO LINE
        @ LINE,5 SAY REPLICATE('*',65)
        STOR LINE+2 TO LINE
      ELSE
        STOR TOTON+TON TO TOTON
        @ LINE,12 SAY MANNO+'   '+SHIP+'     '+QUANT+'     ì
'+UNIT+'   '+TON
        STOR LINE+1 TO LINE
        IF LINE=MAX
          EJECT
          STOR 2 TO LINE
          SKIP
        ELSE
          SKIP
        ENDIF
      ENDIF
    ENDDO
    STOR LINE+2 TO LINE
    IF LINE+3>MAX
      EJECT
      STOR 5 TO LINE
    ENDIF
    @ LINE,16 SAY REPLICATE('*',50)
    STOR LINE+1 TO LINE
    @ LINE,16 SAY '*  Total tons of EPA Waste Code : '+CODEB+' = ì
'+TOTON+'  *'
    STOR LINE+1 TO LINE
    @ LINE,16 SAY REPLICATE('*',50)
    @ LINE+1,0 SAY ' '
    SET DEVI TO SCRE
    CLOS DATA
  ENDIF
  IF CODEB=' ' .AND. CODEA<>' '
    USE WASTE INDEX STWST
    FIND &CODEA
    DO WHIL SHIP=>START .AND. SHIP <=STOP .AND. STCODE=CODEA
      @ 0,0
      SET DEVI TO PRIN
      IF LINE=2
        @ LINE,20 SAY 'Manifest listing for State Waste Code : ì
'+CODEA
        STOR LINE+2 TO LINE
        @ LINE,13 SAY 'Manifest No.   Ship Date   Quantity   ì
Units   Tons'
        STOR LINE+1 TO LINE
        @ LINE,5 SAY REPLICATE('*',65)
        STOR LINE+2 TO LINE
      ELSE
        STOR TOTON+TON TO TOTON
        @ LINE,12 SAY MANNO+'   '+SHIP+'    '+QUANT+'     ì
'+UNIT+'   '+TON
        STOR LINE+1 TO LINE
        IF LINE=MAX
          EJECT
          STOR 2 TO LINE
          SKIP
        ELSE
          SKIP
        ENDIF
      ENDIF
    ENDDO
    STOR LINE+2 TO LINE
    IF LINE+3>MAX
      EJECT
      STOR 5 TO LINE
    ENDIF
    @ LINE,14 SAY REPLICATE('*',52)
    STOR LINE+1 TO LINE
    @ LINE,14 SAY '*  Total tons of State Waste Code : '+CODEA+' ì
= '+TOTON+'  *'
    STOR LINE+1 TO LINE
    @ LINE,14 SAY REPLICATE('*',52)
    @ LINE+1,0 SAY ' '
    SET DEVI TO SCRE
  ENDIF
  CLOS DATA
  EJECT
  ERASE EPAWST.NDX
ENDDO
        CASE CHOICE='3'
@ 7,0 CLEA
STOR 'F' TO END
STOR SPACE(12) TO EPAIDA
STOR 2 TO LINE
STOR 60 TO MAX
@ 10,7 SAY 'Enter the Generator EPA ID for which the report is to ì
be printed.'
@ 12,20 GET EPAIDA
@ 14,18 SAY 'Report start date : '+START+' and end date : '+STOP
READ
DO WHIL END='F'
  USE MANIFEST
  INDEX ON GENID TO GEN
  FIND &EPAIDA
  DO WHIL EPAIDA=GENID .AND. SHIP<=START .AND. SHIP<=STOP
    @ 0,0
    SET DEVI TO PRIN
    IF LINE=2
      @ LINE,15 SAY 'Manifest listing for Generator EPA ID : ì
'+EPAIDA
      STOR LINE+2 TO LINE
      @ LINE,11 SAY 'Manifest No.     Transporter      Disposer   ì
 Ship Date'
      STOR LINE+1 TO LINE
      @ LINE,10 SAY REPLICATE('*',59)
      STOR LINE+2 TO LINE
    ELSE
      @ LINE,10 SAY MANNO+'   '+TRANID+'   '+TSDID+'    '+SHIP
      STOR LINE+1 TO LINE
      IF LINE=MAX
        EJECT
        STOR 2 TO LINE
        SKIP
      ELSE
        SKIP
      ENDIF
    ENDIF
  ENDDO
  @ LINE+1,0 SAY ' '
  SET DEVI TO SCRE
  EJECT
  CLOS DATA
  ERASE GEN.NDX
ENDDO
        CASE CHOICE='4'
@ 7,0 CLEA
STOR 'F' TO END
STOR SPACE(12) TO EPAIDA
STOR 2 TO LINE
STOR 60 TO MAX
@ 10,5 SAY 'Enter the Transporter EPA ID for which the report is ì
to be printed.'
@ 12,20 GET EPAIDA
@ 14,18 SAY 'Report start date : '+START+' and end date : '+STOP
READ
DO WHIL END='F'
  USE MANIFEST
  INDEX ON TRANID TO TRAN
  FIND &EPAIDA
  DO WHIL EPAIDA=TRANID .AND. SHIP=>START .AND. SHIP<=STOP
    @ 0,0
    SET DEVI TO PRIN
    IF LINE=2
      @ LINE,15 SAY 'Manifest listing for Transporter EPA ID : ì
'+EPAIDA
      STOR LINE+2 TO LINE
      @ LINE,11 SAY 'Manifest No.    Generator      Disposer     ì
Ship Date'
      STOR LINE+1 TO LINE
      @ LINE,10 SAY REPLICATE('*',59)
      STOR LINE+2 TO LINE
    ELSE
      @ LINE,10 SAY MANNO+'   '+GENID+'   '+TSDID+'    '+SHIP
      STOR LINE+1 TO LINE
      IF LINE=MAX
        EJECT
        STOR 2 TO LINE
        SKIP
      ELSE
        SKIP
      ENDIF
    ENDIF
  ENDDO
  @ LINE+1,0 SAY ' '
  SET DEVI TO SCRE
  EJECT
  CLOS DATA
  ERASE TRAN.NDX
ENDDO
        CASE CHOICE='5'
@ 7,0 CLEA
STOR 'F' TO END
STOR SPACE(12) TO EPAIDA
STOR 2 TO LINE
STOR 60 TO MAX
@ 10,10 SAY 'Enter the TSD EPA ID for which the report is to be ì
printed.'
@ 12,20 GET EPAIDA
@ 14,18 SAY 'Report start date : '+START+' and end date : '+STOP
READ
DO WHIL END='F'
  USE MANIFEST
  INDEX ON TSDID TO TSD
  FIND &EPAIDA
  DO WHIL EPAIDA=TSDID .AND. SHIP=>START .AND. SHIP<=STOP
    @ 0,0
    SET DEVI TO PRIN
    IF LINE=2
      @ LINE,20 SAY 'Manifest listing for TSD EPA ID : '+EPAIDA
      STOR LINE+2 TO LINE
      @ LINE,11 SAY 'Manifest No.    Generator     Transporter    ì
Ship Date'
      STOR LINE+1 TO LINE
      @ LINE,10 SAY REPLICATE('*',59)
      STOR LINE+2 TO LINE
    ELSE
      @ LINE,10 SAY MANNO+'   '+GENID+'   '+TRANID+'    +'SHIP
      STOR LINE+1 TO LINE
      IF LINE=MAX
        EJECT
        STOR 2 TO LINE
        SKIP
      ELSE
        SKIP
      ENDIF
    ENDIF
  ENDDO
  @ LINE+1,0 SAY ' '
  SET DEVI TO SCRE
  EJECT
  CLOS DATA
  ERASE TSD.NDX
ENDDO
        CASE CHOICE='6'
@ 7,0 CLEA
STOR 'F' TO END
STOR SPACE(12) TO EPAIDA, EPAIDB
STOR 2 TO LINE
STOR 60 TO MAX
@ 10,18 SAY 'Enter the Transporter EPA ID and TSD EPA ID'
@ 11,21 SAY 'for which the report is to be printed.'
@ 13,20 SAY 'Transporter EPA ID : ' GET EPAIDA
@ 15,20 SAY 'TSD EPA ID         : ' GET EPAIDB
@ 17,18 SAY 'Report start date : '+START+' and end date : '+STOP
READ
DO WHIL END='F'
  USE MANIFEST
  INDEX ON TRANID TO TRAN
  FIND &EPAIDA
  IF EPAIDA=TRANID .AND. EPAIDB<>TSDID
    SKIP
  ELSE
    DO WHIL SHIP=>START .AND. SHIP<=STOP
      @ 0,0
      SET DEVI TO PRIN
      IF LINE=2
        @ LINE,2 SAY 'Manifest listing for Transporter EPA ID ì
'+EPAIDA+' and TSD EPA ID '+TSDID
        STOR LINE+1 TO LINE
        @ LINE,15 SAY 'Manifest No.    Generator     Ship Date'
        STOR LINE+1 TO LINE
        @ LINE,14 SAY REPLICATE('*',42)
        STOR LINE+2 TO LINE
      ELSE
        @ LINE,14 SAY MANNO+'   '+GENID+'   '+SHIP
        STOR LINE+1 TO LINE
        IF LINE=MAX
          EJECT
          STOR 2 TO LINE
          SKIP
        ELSE
          SKIP
        ENDIF
      ENDIF
    ENDDO
    @ LINE+1,0 SAY ' '
    SET DEVI TO SCRE
    EJECT
    CLOS DATA
    ERASE TRAN.NDX
  ENDDO
        CASE CHOICE='7'
@ 7,0 CLEA
STOR 'F' TO END
STOR 2 TO LINE
STOR 60 TO MAX
STOR 000000 TO TON, TOTON
STOR SPACE(4) TO HAND
@ 10,6 SAY 'Enter the Waste Handling Code for which you want the ì
report printed.'
@ 12,20 SAY 'Waste Handling Code : ' GET HAND
@ 14,18 SAY 'Report start date : '+START+' and end date : '+STOP
READ
USE WASTE INDEX MANWST
DO WHIL END='F'
  DO WHIL SHIP=>START .AND. SHIP<=STOP
    IF HAND<>HAND1 .AND. HAND<>HAND2 .AND. HAND<>HAND3 .AND. ì
HAND<>HAND4
      SKIP
    ELSE
      @ 0,0
      SET DEVI TO SCRE
      IF LINE=2
        @ LINE,18 SAY 'Manifest listing for Waste Handling Code : ì
'+HAND
        STOR LINE+2 TO LINE
        @ LINE,13 SAY 'Manifest No.   Ship Date   Quantity   ì
Units   Tons'
        STOR LINE+1 TO LINE
        @ LINE,5 SAY RPELICATE('*',65)
        STOR LINE+2 TO LINE
      ELSE
        STOR TOTON+TON TO TOTON
        @ LINE,12 SAY MANNO+'   '+SHIP+'    '+QUANT+'   '+UNIT+'  ì
 '+TON
        STOR LINE+1 TO LINE
        IF LINE=MAX
          EJECT
          STOR 2 TO LINE
          SKIP
        ELSE
          SKIP
        ENDIF
      ENDIF
    ENDIF
  ENDDO
  STOR LINE+2 TO LINE
  IF LINE+3>MAX
    EJECT
    STOR 5 TO LINE
  ENDIF
  @ LINE,12 SAY REPLICATE('*',56)
  STOR LINE+1 TO LINE
  @ LINE,12 SAY '*  Total tons for Waste Handling Code : '+HAND+' ì
= '+TOTON+'  *'
  STOR LINE+1 TO LINE
  @ LINE,12 SAY REPLICATE('*',56)
  @ LINE+1,0 SAY ' '
  SET DEVI TO SCRE
  CLOS DATA
ENDDO
        CASE CHOICE='8'
          DO SUMPRN
        CASE CHOICE='R'
          CLEA
          RETURN
      ENDCASE
    ENDIF
  ENDDO